home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Python 1.4 / Python 1.4 source / Mac / Modules / te / tesupport.py < prev    next >
Encoding:
Text File  |  1996-04-15  |  5.2 KB  |  155 lines  |  [TEXT/Pyth]
  1. # This script generates a Python interface for an Apple Macintosh Manager.
  2. # It uses the "bgen" package to generate C code.
  3. # The function specifications are generated by scanning the mamager's header file,
  4. # using the "scantools" package (customized for this particular manager).
  5.  
  6. import string
  7.  
  8. # Declarations that change for each manager
  9. MACHEADERFILE = 'TextEdit.h'        # The Apple header file
  10. MODNAME = 'TE'                # The name of the module
  11. OBJECTNAME = 'TE'            # The basic name of the objects used here
  12. KIND = 'Handle'                # Usually 'Ptr' or 'Handle'
  13.  
  14. # The following is *usually* unchanged but may still require tuning
  15. MODPREFIX = MODNAME            # The prefix for module-wide routines
  16. OBJECTTYPE = "TEHandle"        # The C type used to represent them
  17. OBJECTPREFIX = MODPREFIX + 'Obj'    # The prefix for object methods
  18. INPUTFILE = string.lower(MODPREFIX) + 'gen.py' # The file generated by the scanner
  19. OUTPUTFILE = MODNAME + "module.c"    # The file generated by this program
  20.  
  21. from macsupport import *
  22.  
  23. # Create the type objects
  24. TEHandle = OpaqueByValueType("TEHandle", "TEObj")
  25. CharsHandle = OpaqueByValueType("CharsHandle", "ResObj")
  26. ##Handle = OpaqueByValueType("Handle", "ResObj")
  27. StScrpHandle = OpaqueByValueType("StScrpHandle", "ResObj")
  28. TEStyleHandle = OpaqueByValueType("TEStyleHandle", "ResObj")
  29. RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
  30.  
  31. TextStyle = OpaqueType("TextStyle", "TextStyle")
  32. TextStyle_ptr = TextStyle
  33.  
  34. includestuff = includestuff + """
  35. #include <%s>""" % MACHEADERFILE + """
  36.  
  37. /* Exported by Qdmodule.c: */
  38. extern PyObject *QdRGB_New(RGBColor *);
  39. extern int QdRGB_Convert(PyObject *, RGBColor *);
  40.  
  41. /*
  42. ** Parse/generate TextStyle records
  43. */
  44. PyObject *TextStyle_New(itself)
  45.     TextStylePtr itself;
  46. {
  47.  
  48.     return Py_BuildValue("lllO&", (long)itself->tsFont, (long)itself->tsFace, (long)itself->tsSize, QdRGB_New,
  49.                 &itself->tsColor);
  50. }
  51.  
  52. TextStyle_Convert(v, p_itself)
  53.     PyObject *v;
  54.     TextStylePtr p_itself;
  55. {
  56.     long font, face, size;
  57.     
  58.     if( !PyArg_ParseTuple(v, "lllO&", &font, &face, &size, QdRGB_Convert, &p_itself->tsColor) )
  59.         return 0;
  60.     p_itself->tsFont = (short)font;
  61.     p_itself->tsFace = (Style)face;
  62.     p_itself->tsSize = (short)size;
  63.     return 1;
  64. }
  65. """
  66.  
  67. class TEMethodGenerator(OSErrMethodGenerator):
  68.     """Similar to MethodGenerator, but has self as last argument"""
  69.  
  70.     def parseArgumentList(self, args):
  71.         args, a0 = args[:-1], args[-1]
  72.         t0, n0, m0 = a0
  73.         if m0 != InMode:
  74.             raise ValueError, "method's 'self' must be 'InMode'"
  75.         self.itself = Variable(t0, "_self->ob_itself", SelfMode)
  76.         FunctionGenerator.parseArgumentList(self, args)
  77.         self.argumentList.append(self.itself)
  78.  
  79.  
  80.  
  81. class MyObjectDefinition(GlobalObjectDefinition):
  82.     def outputCheckNewArg(self):
  83.         Output("""if (itself == NULL) {
  84.                     PyErr_SetString(TE_Error,"Cannot create null TE");
  85.                     return NULL;
  86.                 }""")
  87.     def outputFreeIt(self, itselfname):
  88.         Output("TEDispose(%s);", itselfname)
  89.         
  90.     def outputGetattrHook(self):
  91.         Output("""
  92.             if( strcmp(name, "destRect") == 0 )
  93.                 return Py_BuildValue("O&", PyMac_BuildRect,
  94.                         &(*self->ob_itself)->destRect);
  95.             if( strcmp(name, "viewRect") == 0 )
  96.                 return Py_BuildValue("O&", PyMac_BuildRect,
  97.                         &(*self->ob_itself)->viewRect);
  98.             if( strcmp(name, "selRect") == 0 )
  99.                 return Py_BuildValue("O&", PyMac_BuildRect,
  100.                         &(*self->ob_itself)->selRect);
  101.             if( strcmp(name, "lineHeight") == 0 )
  102.                 return Py_BuildValue("h", (*self->ob_itself)->lineHeight);
  103.             if( strcmp(name, "fontAscent") == 0 )
  104.                 return Py_BuildValue("h", (*self->ob_itself)->fontAscent);
  105.             if( strcmp(name, "selPoint") == 0 )
  106.                 return Py_BuildValue("O&", PyMac_BuildPoint,
  107.                         &(*self->ob_itself)->selPoint);
  108.             if( strcmp(name, "selStart") == 0 )
  109.                 return Py_BuildValue("h", (*self->ob_itself)->selStart);
  110.             if( strcmp(name, "selEnd") == 0 )
  111.                 return Py_BuildValue("h", (*self->ob_itself)->selEnd);
  112.             if( strcmp(name, "active") == 0 )
  113.                 return Py_BuildValue("h", (*self->ob_itself)->active);
  114.             if( strcmp(name, "just") == 0 )
  115.                 return Py_BuildValue("h", (*self->ob_itself)->just);
  116.             if( strcmp(name, "teLength") == 0 )
  117.                 return Py_BuildValue("h", (*self->ob_itself)->teLength);
  118.             if( strcmp(name, "txFont") == 0 )
  119.                 return Py_BuildValue("h", (*self->ob_itself)->txFont);
  120.             if( strcmp(name, "txFace") == 0 )
  121.                 return Py_BuildValue("h", (*self->ob_itself)->txFace);
  122.             if( strcmp(name, "txMode") == 0 )
  123.                 return Py_BuildValue("h", (*self->ob_itself)->txMode);
  124.             if( strcmp(name, "txSize") == 0 )
  125.                 return Py_BuildValue("h", (*self->ob_itself)->txSize);
  126.             if( strcmp(name, "nLines") == 0 )
  127.                 return Py_BuildValue("h", (*self->ob_itself)->nLines);
  128.         """)
  129.  
  130. # From here on it's basically all boiler plate...
  131.  
  132. # Create the generator groups and link them
  133. module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff)
  134. object = MyObjectDefinition(OBJECTNAME, OBJECTPREFIX, OBJECTTYPE)
  135. module.addobject(object)
  136.  
  137. # Create the generator classes used to populate the lists
  138. Function = OSErrFunctionGenerator
  139. Method = TEMethodGenerator
  140.  
  141. # Create and populate the lists
  142. functions = []
  143. methods = []
  144. execfile(INPUTFILE)
  145.  
  146. # add the populated lists to the generator groups
  147. # (in a different wordl the scan program would generate this)
  148. for f in functions: module.add(f)
  149. for f in methods: object.add(f)
  150.  
  151. # generate output (open the output file as late as possible)
  152. SetOutputFileName(OUTPUTFILE)
  153. module.generate()
  154.  
  155.